home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / Trails / TrailsMenu.DEF < prev    next >
Text File  |  1986-08-05  |  1KB  |  61 lines
  1. (*
  2.     This is a definition module for Trails Menus.
  3.     Procedures to connect and disconnect menu with
  4.     a window are exported.
  5.  
  6.     Created: 5/22/86 by Richard Bielak
  7.     
  8.     Modified:
  9.  
  10.  
  11.     Copyright (c) 1986 by Richard Bielak.
  12.     
  13.     This is a Public Domain piece of code, please don't
  14.     try to sell it! Also, please leave my name in.
  15.     Thanks.....Richie.
  16.  
  17. *)
  18. DEFINITION MODULE TrailsMenu;
  19.  
  20. FROM Intuition IMPORT WindowPtr;
  21.  
  22.   (*    ******** IMPORTANT *************
  23.      The types below reflect the structure of
  24.      menu. If new items, or new menus are added,
  25.      make sure that these types are updated.
  26.   *)
  27.   TYPE
  28.     TrailsMenuType = (Actions, Symetry, Size, SquareSize);
  29.  
  30.     ActionItemType = (HideTitle,
  31.                       UnHideTitle, 
  32.               AboutTrails, 
  33.                       ClearTrails,
  34.                       QuitTrails);
  35.  
  36.     SymetryItemType = (OneFold,
  37.                        TwoFold,
  38.                FourFold);
  39.  
  40.     SizeItemType    = (Size16,
  41.                        Size32,
  42.                Size64,
  43.                Size128,
  44.                Infinite);
  45.  
  46.     SquareSizeItemType = 
  47.                       (Size2by2,
  48.                Size4by4,
  49.                Size8by8,
  50.                       Size16by16,
  51.                Size32by32);
  52.  
  53.     
  54.   (* Connect a menu strip to a window *)
  55.   PROCEDURE ConnectMenu (wp : WindowPtr);
  56.  
  57.   (* Disconnect a menu strip from a window *)
  58.   PROCEDURE DisconnectMenu (wp : WindowPtr);
  59.  
  60. END TrailsMenu.
  61.